COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE PUPOTS
C00004 ENDMK
C⊗;
TITLE PUPOTS

PUPTST:	RESET
	MOVEI 20
	OUTSTR [ASCIZ/HOW MANY?/]
	SETZ 1,
GETNUM:	INCHWL 2
	CAIL 2,"0"
	 CAILE 2,"9"
	  JRST PUPTS0
	IMULI 1,=10
	ADDI 1,<-"0">(2)
	JRST GETNUM

PUPTS0:	CLRBFI
	SETZM PUPMSG+50			; INIT COUNT
	INIT 17
	 SIXBIT/PUP/
	 0
	 JRST 4,.
	LOOKUP [340			; LCL SKT
		300			; FRN SKT
		302]			; FRN ADR (US)
	 JRST 4,.
PUPTS1:	OUT PUPMSG
	 CAIA
	  JRST 4,.
	OUTCHR ["!"]
	ADDM PUPMSG+50
	SOJG 1,PUPTS1
	EXIT

; PUP LENGTH IS GIVEN IN 8-BIT BYTES
PUPMSG:	0				; BYTE (8) DEST,SOURCE (16) 1000
	BYTE (16) <=422>,0		; BYTE (16) PUPLENGTH (8) TCTL,PUPTYPE
	0				; BYTE (16) PUPIDENT1,PUPIDENT2
	0				; BYTE (8) DESTNET,DESTHOST (16) DESTSOC1
	0				; BYTE (16) DESTSOCK2 (8) SRCNET,SRCHOST
	0				; BYTE (16) SRCSOC1,SRCSOC2
	123456,,654320			; CODE FOR PUPITS
REPEAT <=99>,<
	0
>;REPEAT
	BYTE (16) 177777		; IGNORE CHECKSUM

END PUPTST